Project3/Query Function.R

In W0650629/Project-3: Cleaning and mapping taxanomic data

#' Creates a dataframe of geospatial data about searched taxa
#' 
#' Build dataframe of geospatial information about quaried taxa from GBIF
#' 
#' @param taxvec A vector of taxa you'd like geospatial information on
#' @return Taxa_Frame %>% filter(!is.na(country)) Creates a dataframe and elimates results where country is unknown.
#' @export Pull__Cort

Pull__Cort <- function(taxvec){
  ids <- c()
  for (taxo in taxvec){
    print(taxo)
    cleaned <- name_suggest(taxo)
    print(cleaned)
    ids[taxo] <- c(cleaned$key)
  }  
  df <- lapply(ids, occ_search, return = "data")   
  Taxa_Frame <- bind_rows(df, .id = "column_label")   
  return(Taxa_Frame %>% filter(!is.na(country)))
}